home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Demo Software / AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_207_FontMenu < prev    next >
Text File  |  1989-04-09  |  820b  |  50 lines
  1. /* %filename% */
  2. /* Created %date% %time% by AppMaker */
  3.  
  4. %If MPW%
  5. #include <Types.h>
  6. #include <Quickdraw.h>
  7. #include <Controls.h>
  8. #include <Dialogs.h>
  9. #include <Events.h>
  10. #include <Lists.h>
  11. #include <Menus.h>
  12. #include <TextEdit.h>
  13.  
  14. %end if%
  15. #include "Globals.h"
  16. #include "ResourceDefs.h"
  17. #include "Miscellany.h"
  18. %UsesDialogs%
  19.  
  20. #include "%unitname%.h"
  21.  
  22. %If MPW%
  23. #include <Fonts.h>
  24.  
  25. %end if%
  26. short            nrFonts;
  27. %If MPW%
  28.  
  29. #pragma segment %unitname%
  30. %end if% 
  31.  
  32. /*----------*/
  33. void Init%MenuName% ()
  34. {
  35.     nrFonts = CountMItems (FontMenu);
  36. } /*Init%MenuName%*/
  37.  
  38. %DoMenuItems%
  39. /*----------*/
  40. void Choose%MenuName% (itemNr)
  41. short            itemNr;
  42. {
  43.     Str255            fontName;
  44.     short            fontNum;
  45.  
  46.     DoRadioMenu (%menuName%Menu, 1, nrFonts, itemNr);
  47.     GetItem (%menuName%Menu, itemNr, fontName);
  48.     GetFNum (fontName, &fontNum);
  49. } /*Choose%MenuName%*/
  50.